home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / DiceSource / src / dc1 / gen.a < prev    next >
Text File  |  1993-09-19  |  863b  |  92 lines
  1.     section text,code
  2.  
  3.     section data,data
  4.  
  5.     ds.w    0
  6. l1
  7.     dc.l    l2+0
  8.  
  9.     section text,code
  10.  
  11.     debug    2170
  12.     section data,data
  13.  
  14.     ds.w    0
  15. l4
  16.  
  17.     dc.l    $0
  18.  
  19.     section text,code
  20.  
  21.     ds.l 0
  22.     procstart
  23.     ds.w    0
  24.     xdef    _AllocLabel
  25. _AllocLabel:
  26.     movem.l    l9,-(sp)
  27.     link    A5,#-l6
  28.     debug    2175
  29.     addq.l    #$01,l4(A4)
  30.     move.l    l4(A4),D0
  31.     bra    l7
  32. l7
  33.     unlk    A5
  34.     rts
  35. l9    reg    
  36. l8    equ    8
  37. l6    equ    0
  38.     procend
  39.     debug    2176
  40.     debug    2178
  41.     section bss,bss
  42.  
  43.     ds.w    0
  44. l17    ds.b    2
  45.     section text,code
  46.  
  47.     ds.l 0
  48.     procstart
  49.     ds.w    0
  50.     xdef    @InitGen
  51. @InitGen:
  52.     movem.l    l21,-(sp)
  53.     link    A5,#-l18
  54.     debug    2183
  55.     moveq.l    #1,D1
  56.     cmp.l    D0,D1
  57.     bne    l12
  58. l24
  59.     move.w    l17(A4),D1
  60.     addq.w    #$01,l17(A4)
  61.     tst.w    D1
  62.     bne    l12
  63. l25
  64. l23
  65. l11
  66. l12
  67. l13
  68.     debug    2186
  69.     tst.l    D0
  70.     bne    l15
  71. l27
  72.     subq.w    #$01,l17(A4)
  73.     tst.w    l17(A4)
  74.     bne    l15
  75. l28
  76. l26
  77. l14
  78. l15
  79. l16
  80. l19
  81.     unlk    A5
  82.     rts
  83. l21    reg    
  84. l20    equ    8
  85. l18    equ    0
  86.     procend
  87.     debug    2189
  88. l2
  89.  
  90.     dc.b    $67,$65,$6E,$2E,$63,$00
  91.     END
  92.